Dr. Windows 3/dr win3.zip/dr win3/VISUALBA/VSVBX.ZIP/SPLITTER.FRM

Text File | 1994-03-09 | 8KB | 222 lines

VERSION 2.00
Begin Form Splitter
   BackColor       =   &H00C0C0C0&
   Caption         =   "Resize controls using the colored splitter bars"
   ClientHeight    =   3720
   ClientLeft      =   570
   ClientTop       =   1635
   ClientWidth     =   8415
   Height          =   4185
   Left            =   480
   LinkTopic       =   "Form1"
   ScaleHeight     =   3720
   ScaleWidth      =   8415
   Top             =   1260
   Width           =   8595
   Begin VideoSoftElastic VSElastic1
      Align           =   5  'Fill Container
      AutoSizeChildren=   2  'Uneven Horizontal
      BackColor       =   &H0000FF00&
      BorderWidth     =   0
      Height          =   3720
      Left            =   0
      Splitter        =   1  'Yes (with uneven spacing)
      TabIndex        =   0
      Top             =   0
      Width           =   8415
      Begin VideoSoftElastic VSElastic3
         AutoSizeChildren=   1  'Even Horizontal
         BackColor       =   &H00C0C0C0&
         BevelInner      =   7  'Shadow
         BevelInnerWidth =   3
         BevelOuter      =   1  'Raised
         BevelOuterWidth =   1
         BorderWidth     =   12
         Height          =   3720
         Left            =   2655
         TabIndex        =   14
         Top             =   0
         Width           =   2475
         Begin FileListBox File1
            Height          =   3345
            Left            =   180
            TabIndex        =   15
            Top             =   180
            Width           =   2115
         End
      End
      Begin VideoSoftElastic VSElastic2
         AutoSizeChildren=   4  'Uneven Vertical
         BackColor       =   &H00C0C0C0&
         BevelOuter      =   1  'Raised
         BevelOuterWidth =   1
         BorderWidth     =   12
         Height          =   3720
         Left            =   0
         ShadowColor     =   &H00000000&
         TabIndex        =   11
         Top             =   0
         Width           =   2565
         Begin DirListBox Dir1
            Height          =   2955
            Left            =   180
            TabIndex        =   12
            Top             =   585
            Width           =   2205
         End
         Begin DriveListBox Drive1
            Height          =   315
            Left            =   180
            TabIndex        =   13
            Top             =   180
            Width           =   2205
         End
      End
      Begin VideoSoftElastic VSElastic4
         AutoSizeChildren=   4  'Uneven Vertical
         BackColor       =   &H0000FF00&
         BorderWidth     =   0
         Height          =   3720
         Left            =   5220
         Splitter        =   1  'Yes (with uneven spacing)
         TabIndex        =   1
         Top             =   0
         Width           =   3195
         Begin VideoSoftElastic VSElastic6
            AutoSizeChildren=   3  'Even Vertical
            BackColor       =   &H00C0C0C0&
            BevelInner      =   7  'Shadow
            BevelInnerWidth =   3
            BevelOuter      =   1  'Raised
            BevelOuterWidth =   1
            BorderWidth     =   12
            ChildSpacing    =   10
            Height          =   2985
            Left            =   0
            TabIndex        =   6
            Top             =   0
            Width           =   3195
            Begin CommandButton Command1
               Caption         =   "&Colors"
               FontBold        =   -1  'True
               FontItalic      =   0   'False
               FontName        =   "System"
               FontSize        =   9.75
               FontStrikethru  =   0   'False
               FontUnderline   =   0   'False
               Height          =   555
               Index           =   0
               Left            =   180
               TabIndex        =   10
               Top             =   180
               Width           =   2835
            End
            Begin CommandButton Command1
               Caption         =   "&Fonts"
               FontBold        =   -1  'True
               FontItalic      =   0   'False
               FontName        =   "System"
               FontSize        =   9.75
               FontStrikethru  =   0   'False
               FontUnderline   =   0   'False
               Height          =   540
               Index           =   1
               Left            =   180
               TabIndex        =   9
               Top             =   885
               Width           =   2835
            End
            Begin CommandButton Command1
               FontBold        =   -1  'True
               FontItalic      =   0   'False
               FontName        =   "System"
               FontSize        =   9.75
               FontStrikethru  =   0   'False
               FontUnderline   =   0   'False
               Height          =   540
               Index           =   2
               Left            =   180
               TabIndex        =   8
               Top             =   1575
               Width           =   2835
            End
            Begin CommandButton Command1
               FontBold        =   -1  'True
               FontItalic      =   0   'False
               FontName        =   "System"
               FontSize        =   9.75
               FontStrikethru  =   0   'False
               FontUnderline   =   0   'False
               Height          =   540
               Index           =   3
               Left            =   180
               TabIndex        =   7
               Top             =   2265
               Width           =   2835
            End
         End
         Begin VideoSoftElastic VSElastic5
            AutoSizeChildren=   1  'Even Horizontal
            BackColor       =   &H00C0C0C0&
            BevelInner      =   7  'Shadow
            BevelInnerWidth =   4
            BevelOuter      =   1  'Raised
            BevelOuterWidth =   1
            BorderWidth     =   10
            ChildSpacing    =   12
            Height          =   645
            Left            =   0
            TabIndex        =   2
            Top             =   3075
            Width           =   3195
            Begin CommandButton Command1
               Caption         =   "A"
               Height          =   345
               Index           =   6
               Left            =   150
               TabIndex        =   5
               Top             =   150
               Width           =   855
            End
            Begin CommandButton Command1
               Caption         =   "B"
               Height          =   345
               Index           =   5
               Left            =   1185
               TabIndex        =   4
               Top             =   150
               Width           =   840
            End
            Begin CommandButton Command1
               Caption         =   "C"
               Height          =   345
               Index           =   4
               Left            =   2205
               TabIndex        =   3
               Top             =   150
               Width           =   840
            End
         End
      End
   End
End
Option Explicit

Sub Command1_Click (Index As Integer)
  Dim newcolor&
  Select Case Index

    Case 0  'Change to random colors
      newcolor = QBColor(Rnd * 15)
      VSELastic1.BackColor = newcolor
      VSelastic4.BackColor = newcolor

    Case 1   'Fonts
      File1.FontSize = (File1.FontSize + 2) Mod 13
      Drive1.FontSize = (Drive1.FontSize + 2) Mod 13
      Dir1.FontSize = (Dir1.FontSize + 2) Mod 13

  End Select
End Sub